home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / XWING.ZIP / XDEFS.BAS < prev    next >
BASIC Source File  |  1997-09-14  |  2KB  |  53 lines
  1.  
  2. ''''''''''''''''''''''''''''''''''''''
  3. ''' xWinG Action Property Values
  4. ''''''''''''''''''''''''''''''''''''''
  5.  
  6. ''''' bitmap actions
  7. Global Const XW_LOAD = 1        ''' load the image from a file
  8. Global Const XW_ERASE = 2
  9. Global Const XW_RESERVE = 3     ''' reserve a palette index
  10. Global Const XW_SYNC = 4        ''' match the WinG color table to the palette
  11. Global Const XW_WIPE = 5        ''' start a transition
  12.  
  13. ''''' buffer actions
  14. Global Const XW_LOADBUFFER = 6  ''' load the buffer from a file
  15. Global Const XW_CLEARBUFFER = 7 ''' release the buffer memory
  16. Global Const XW_PASTERECT = 8   ''' copy the buffer rectangle to the image
  17. Global Const XW_TRANSRECT = 9   ''' copy the buffer rectangle to the image with transparency
  18. Global Const XW_SETBUFFER = 10  ''' copy the image pixels to the buffer
  19.  
  20. '''' form size action
  21. Global Const XW_SIZEFORM = 11   ''' Not Done
  22.  
  23. ''''' hotspot actions
  24. Global Const XW_HOTSPOT = 12    ''' create a hotspot
  25. Global Const XW_NOSPOTS = 13    ''' delete all hotspots
  26. Global Const XW_ENABLE = 14     ''' enable a hotspot
  27. Global Const XW_DISABLE = 15    ''' disable a hotspot
  28.  
  29. Global Const XW_HALFTONE = 16   ''' create a WinG halftone palette
  30.  
  31.  
  32.  
  33. '''''''''''''''''''''''''''''''''''''
  34. ''  xDib Functions
  35. '''''''''''''''''''''''''''''''''''''
  36. Declare Sub ReadDib Lib "XDIB" (xDib As Control)
  37. Declare Sub WriteDib Lib "XDIB" (xDib As Control)
  38. Declare Sub WriteRle Lib "XDIB" (xDib As Control)
  39. Declare Sub FreeDib Lib "XDIB" (xDib As Control)
  40. Declare Sub MakeDib Lib "XDIB" (xDib As Control, ByVal Wide As Integer, ByVal High As Integer, ByVal init As Integer)
  41. Declare Sub PasteDib Lib "XDIB" (xDib As Control, ByVal X As Integer, ByVal Y As Integer)
  42. Declare Sub CopySelection Lib "XDIB" (xFrom As Control, xTo As Control)
  43. Declare Sub Dither Lib "XDIB" (xDib As Control, Ignore() As Integer, ByVal hPalette As Integer, ByVal ErrLev As Integer)
  44. Declare Sub Remap Lib "XDIB" (xDib As Control, Ignore() As Integer, ByVal hPalette As Integer)
  45. Declare Sub Optimize Lib "XDIB" (xDib As Control, ByVal Colors As Integer)
  46.  
  47. Declare Sub GetRGB Lib "XPAL" (ByVal Color As Long, red As Integer, green As Integer, blue As Integer)
  48. 'Declare Sub GetRGB Lib "XDIB" (ByVal Color As Long, red As Integer, green As Integer, blue As Integer)
  49.  
  50. Declare Sub TopMost Lib "XPAL" (ByVal hWnd As Integer, ByVal bool As Integer)
  51. 'Declare Sub TopMost Lib "XDIB" (ByVal hWnd As Integer, ByVal bool As Integer)
  52.  
  53.